1980 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
1981 IF INKEY$="" THEN 1981
1985 KEY OFF:DEFSNG S,A:SCREEN 1,0:COLOR 0,0:CLS:X=160:Y=100
1990 FOR T=1 TO 200:CIRCLE(RND*320,RND*200),RND*1,3:NEXT T
1995 CIRCLE (X,Y),50,1
2000 PAINT (X,Y),3,1
2005 FIRST =0:LAST=10:CLR=1:SET = 2.2:ANG =1:GOSUB 2025
2010 FIRST=14:LAST=22:CLR=2:SET=2.05:ANG=1.1:GOSUB 2025
2015 FIRST=31:LAST=48:CLR=1:SET=1.95:ANG=1.2:GOSUB 2025
2020 GOTO 2045
2025 FOR RING=FIRST TO LAST
2030 CIRCLE(X,Y),85+RING,CLR,SET,ANG,.2
2035 NEXT RING
2040 RETURN
2045 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
2046 IF INKEY$="" THEN 2046
2050 CHAIN "A:GRAPH1"
